home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcpgt.arc / RTP.CTY < prev    next >
Text File  |  1987-03-11  |  529b  |  33 lines
  1. SEND "C DIAL919/12,"
  2. V2 = "Research Triangle Park"
  3. SENDLN %3
  4. WAIT FOR "PASSWORD ="
  5. SENDLN %4
  6. GETLN V9
  7. CASE %9 OF
  8.  ~ CONNECT
  9.    BEEP
  10.    BEEP
  11.    BEEP
  12.    SENDLN "ATZ"
  13.    WAIT FOR "OK"
  14.    CALL PAR
  15.    CLEAR
  16.    WRITE "You are now connected to "
  17.    WRITE %2
  18.    WRITELN
  19.    WRITELN
  20.    WRITELN "Press ALT-X to disconnect from node"
  21.    EXCH RTP
  22.    ONLINE
  23.    call getcity.scr
  24.    BREAK
  25.    SENDLN D
  26.  ~ BUSY
  27.    WRITELN
  28.    WRITE "Cannot connect with "
  29.    WRITE %2
  30.    WRITELN ", it is BUSY!"
  31.    WAIT FOR "@"
  32. ESAC
  33.